﻿
Imports Fgv.Framework.Dal.NHibernate
Imports NHibernate.Criterion
Imports NHibernate
Imports Fgv.Framework.Dal

Public Class PessoaDao
    Inherits GenericsNHibernateDao(Of Pessoa)
    Implements IPessoaDao

    Public Function BuscarPessoas(ByVal _qtd As Integer) As IList(Of Dominio.Pessoa) Implements IPessoaDao.BuscarPessoas

        Dim _pessoas As IList(Of Pessoa)
        Dim _consulta As String = "select pessoa from Pessoa as pessoa "

        Dim _q As IQuery = MyBase.CurrentSession.CreateQuery(_consulta)

        If _qtd > 0 Then
            _q.SetMaxResults(_qtd)
        End If

        _pessoas = _q.List(Of Pessoa)()
        Return _pessoas

    End Function

End Class
